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Another Way to Assemble into SYS Files 


In the August 1987 issue of AAL I told how to patch the ProDOS 
version of S-C Macro Assembler so that target files (.TF 
directive) could be type SYS rather than BIN. Unfortunately the 
patches only work if the file is not already on the disk. In 
order to avoid an error message you can simply delete the target 
file before each assembly, and the easiest way to do this is by 
making an EXEC file. For example, I was working on a large 
program. SC.ACF is the file with a lot of include (.IN) 
directives. SCWP.SYSTEM is the target file. With the following 
three lines of text in an EXEC file named ASM, I can do an 
assembly by merely typing °-ASM*: 


DELETE SCWP.SYSTEM 
LOAD SC.ACF 
ASM 


Unless the assembler is patched, SCWP.SYSTEM will be a type BIN 
file after assembly. With the following three lines in an EXEC 
file named SYS, I can change the filetype of SCWP.SYSTEM from BIN 
to SYS by typing “-SYS":; 


VERIFY SCWP.SYSTEM 
$800:A9 07 8D B4 BE AS FF 8D B8 BE 20 00 BF C3 B4 BE 4C DA FD 
MGOS$800 


The VERIFY command reads the file info into a buffer at SBEB4. 
The code being poked into $800 changes the buffer and does an MLI 
call to SET FILE INFO. It then prints out the error code 
returned, which we hope is 00. If not 00, there was an error. 


Peeking Inside AppleWorks 1.3, Part 3: 
Keyboard Input Subroutines....Bob Sander-Cederlof 


In this, the third of the series delving into the AppleWorks 
code, we will look into the low-level keyboard input code and a 
few associated routines. It is probably not extremely 
exciting, but it is fundamental, and just the right amount of 
code for this issue of AAL. 


This time I decided to give an exact disassembly, rather than 
rewriting routines to my own liking as I worked through them. 
Nevertheless, I could not resist showing you my revisions of 
two subroutines, as you will see below. Until now, I have been 
working from a “raw” disassembly listing: that is, one 
produced with the Apple monitor "L"“ command, and my pencil. 
After figuring out what I wanted to reproduce, I sat down to 
the keyboard and typed in an equivalent program. This time I 
used the S-C DisAssembler to produce a set of source files, and 
then worked them over with the editing facilities of the S-C 
Macro Assembler. The result will re-assemble to an exact copy 
Of APLWORKS.SYSTEM (version 1.3). Finally, I lifted out the 
subroutines I wanted to discuss this month and put them 
together in one source file. The result is on the following 
pages. 


The S-C DisAssembler made my work a lot easier, but it did not 
do everything. It does work from a script which can detail 
which address ranges are code, and which are data. The version 
I was using also could differentiate between hex strings, ASCII 
strings, and address tables. Furthermore, SCDA lets me give 
label names in advance when I know what I want to call them. 
However, SCDA does not handle all the parameters following JSR 
XXXX lines which are part of the AppleWorks code. It does 
handle JSR SBFOO, which is the ProDOS MLI call, but not the 
multitude of AppleWorks calls which I discussed in the December 
1987 issue of AAL. SCDA also does not automatically generate 
local labels within subroutines. All labels not already given 
names are generated as "I.xxxx", where xxxx is the hexadecimal 
address. I have gone through the source code and replaced 
these with either meaningful names or local labels. I did 
leave one “I." label, because I did not know what to call it, 
in line 1490. SCDA also generates "X.“ labels for variables or 
subroutines outside the range being disassembled, and “Z." 
labels for page-zero references. I have left some of these in 
that form, pending more information about what they ought to be 
called. 


If you look at the listing that follows, you may notice some 
strange comment lines that are filled with hexadecimal numbers. 
For example, see line 1640: 


1640 * (1D35) 1066 1192 137F 193F 19C5 IBFD 


These lines were produced by the S-C DisAssembler, and are 
embedded cross-reference lines. The number in parentheses is 
the address of the label which follows on the next line, in 
this case "“AW.KEYIN". The list of numbers after the 
parentheses are addresses of instructions which refer to 
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S-C Macro Assembler Version 2.0 ‘ . 
Version 2.0 DOS Upgrade Kit for 1. 0/1. 1/1. 2 owners aT er ee ee 
ProDOS Upgrade Kit for Version 2.0 DOS owners . . . . . . « .« 
Cross Assemblers for owners of S-C Macro Assembler... 

(Available: 6800/1/2, 6301, 


- DOS $100, ProDOS $100, both for ft 


- $30 


‘ » $32. 50 to $50, each 


1802/4/5, PDP-11, G1I1650/70, Mitsubishi 50740, others) 


Source Code of any S-C Macro Assembler or Cross Assembler... . 
S-C DisAssembler (ProDOS only) . . . ... . 
RAK-Ware DISASM (DOS only) . . . ge ia 
ProVIEW (ProDOS-based disk utility oroaren) Ome wen SA Gr CS 
Full Screen Editor for S-C Macro (with pics source code) . . . 
S-C Cross Reference Utility. . ‘ 


ES-CAPE (Extended S-C Applesoft Program Editor), including Version 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners) . 
Bag of Tricks 2 (Quality Software) . . 2. © « «© © «© «© « « 
S-C Documentor (complete commented source code of Applesoft ROMs) . 
Copy II Plus (Central Point Software) ee. WG. Bs ss ee Weis cee “cers 8 
AAL Quarterly Disks eh, tes ge Sen tee cer ee ae OW er tee “en SOBER 
(Al. source code is formatted for S-C Macro Assembler. 
require some effort to convert file type and edit directives.) 


Vinyl disk pages, 6"x8.5", hold two disks each . . . . . « e 

Diskette Mailing Protectors (hold 1 or 2 disks) . . . . « « -« 
(Cardboard folders designed to fit 6"X9" Envelopes. ) 

Envelopes for Diskette Mailers . . . . . «© «.« « « e« « -« 


Sider 20 Meg Hard Disk, includes controller & software . 
Sider 40 Meg Hard Disk, includes controller & software . 


Minuteman 250 Uninterruptible Power Supply . 
Minuteman 300 Uninterruptible Power Supply . 


65802 Microprocessor, 4 MHz (Western Design Center) . 
quikLoader EPROM System (SCRG) . . . . . .« « -« 
PROmGRAMER (SCRG) e e e e e e e e e e e e 


"Exploring the Apple IIgs" . . . . . «.« « « « « e 
"Apple IIgs Technical Reference"®" . . . . . +. « e« « 
"65816/65802 Assembly Language Programming". . . .. .- 
"Programming the 65816" . . . . .6 «© « « -» 
"Programming the Apple IIgs in C and Assembly Language”. 


"Apple //e Reference Manual". . . . .«. « « « e« « « « Apple 
"Apple //c Reference Manual®. . . . .« « « « « « e« . Apple 
*"ProDOS-8 Technical Reference Manual". . . . . «© « « « Apple 
"ProDOS-16 Technical Reference Manual® . . . . . «. « « Apple 
"Apple IIgs Firmware Reference". . . . .« «.« « « « « « Apple 
"Apple IIgs Hardware Reference". . . . . . « « e« « « Apple 
"Apple IIgs Toolbox Reference, Volume 1". . . . . « « « Apple 
"Apple IIgs Toolbox Reference, Volume 2". . . . . « «. +. Apple 
"Apple IIgs Programmer's Introduction®™ . . . . . « .« . Apple 
"ProDOS Inside and Out®" . . . . «.« « « .« « Dennis Doms & Tom 
"Beneath AppleProDOS". . . . . . « « « e« Don Worth & Pieter 
"Beneath Apple DOS®". . ... . ‘: - « Don Worth 


"Inside the Apple //c®. . . . « .« 
"Inside the Apple //e". . . . . . 
"Understanding the Apple //e" . a 
"Understanding the Apple II®*... e 
"Apple II+/IIe Troubleshooting & Repair Guide®. 
"Assembly Language for Applesoft Programmers* 
*"Now That You Know Apple Assembly Language®. 
"Enhancing Your Apple II, vol. 1%... . 
"Enhancing Your Apple II, vol. 2". . ° 
"Assembly Cookbook for the Apple II/IIe*, F 
"Microcomputer Graphics® . . . . . « « 
"Assembly Lines -- the Book". . . .. . 


@ These items add $2 for first item, $.75 for each 
+ Inquire for shipping cost. 

Customers outside USA inquire for postage needed. 
Texas residents please add 8% sales tax to all orders. 
<< Master Card, VISA, Discover and American Express >> 


additional 


‘ Finley & Myers 


S-C Software 

2331 Gus Thomasson #125 
DALLAS, TX 75228 
Phone 214-324-2050 


- each, 


without source code $30, 
without source code $30, 


without source code $20, 
S-C Word Processor, both DOS & ProDos, both "4o- & 80-columns, with complete source code 

DP18 and DPFP, double precision math for Applesoft, including complete source code. . . 
2.0 With Source Code . 


1 


$15, or any four for 


Other assemblers 


- Gary B. Little 
-Michael Fischer 
-Michael Fischer 
- David Eyes & Ron Lichty 
. Mark Andrews 


Computer 
Computer 
Computer 
Computer 
Computer 
Computer 
Computer 
Computer 
Computer 
Weishaar 
Lechner 


& Pieter Lechner 
Gary B. Little 
Gary B. Little 

- dim Sather 
- Jim Sather 


Brenner 


eJules Gilder 
Don Lancaster 
Don Lancaster 
Don Lancaster 
- Roy E.Myers 
Roger Wagner 


6805, 6809, 68000, 2-80, z-8, "g0u8, "8051, "8085, 


additional $100 
with source $50 
with source $50 

. 6 «© « $20 
$49 
$50 
$50 
$50 
$50 
- $30 

$45 
- $50 
$30 
$45 


witb source 


" ($89.95) 
" ($39.95) 


: 10 for $6 
KO cents each 
or $25 per 100 
6 cents each 


- ($695) $550 
- ($995) $860 


($359) $320 
($549) $490 


© 6 «+ $25 
($179) $170 
($149. 50) $140 


$21 
$19 
$20 
$21 
$18 
$23 
$23 
$27 
$27 
$23 
$23 
$24 
$24 
$30 
$16 


($22.95) 
($19.95) 
($21.95) 
($22.95) 
($18.95) 
($24.95) 
($24.95) 
($29.95) 
($29.95) 
($24.95) 
($24.95) 
($26.95) 
($26.95) 
($32.95) 
($16.95) 
($19.95) 
($19.95) 
($19.95) 
($19.95) 
($24.95) 
($22.95) 
($19.95) 
($18.95) 
($19.95) 
($15.95) 
($17.95) 
($21.95) 
($14.95) 
($19.95) 


$18 
$18 
$18 
$23 
$21 
$18 
$18 
$18 
$15 
$17 
$20 
$14 
$12 


items for US shipping. 


tion 


$18 # 
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AW.KEYIN. In this program, they just happen to all be J&R or 
JMP instructions. The disassembler produces lines like this 
for every label, and I left in the important ones. 


Another thing you will notice in the listing is the heavy use 
of .PH and .EP directives. Each subroutine is surrounded by a 
pair of these. I wanted the listing here to show the same 
addresses as I found inside AppleWorks, and the .PH directive 
lets me do so. The object code that is stored in RAM during 
assembly of this source code will not be useful, because it 
will not be located in the addresses shown; rather, it will be 
all packed together starting at $0800, the default object code 
address. But I do not intend to use the code in this form, 
just display it. If you want to use one or more of these 
subroutines, include them in your own code WITHOUT the .PH and 
~EP directives. 


In order to assemble these subroutines without the rest of the 
body of APLWORKS.SYSTEM, I had to define some subroutines not 
included here. Lines 1450-1470 show these names. 
DISPLAY.STRING and BASE.CALC.A were included in the January 
1988 issue of AAL. I intend to include PRINTER.DRIVER in a 
future issue. 


The main subroutine I want to talk about this issue begins at 
line 1510, and I have called it AW.KEYIN. As line 1640 shows, 
this is called from a lot of places; its main purpose is to get 
the next character from the keyboard. It also does a lot of 
other stuff, as we will see. 


I broke the KEYIN subroutine into four parts. The first part 
is lines 1640-1720, and is the only entry point used by 
AppleWorks. The second part (lines 1730-2570) handles the 
actual character input, getting a character either from the 
type-ahead buffer or from the keyboard. The third part (lines 
2580-3560) checks for certain special characters and acts on 
them. The last part (lines 3570-3630) stores the character in 
$84 and returns. 


Looking at the first section first, notice lines 1660-1680. 

For reasons I have not yet determined, a flag is kept in 
pagezero location $A4 which can cause all keyboard input to be 
bypassed. You may remember, this same location also controls 
screen display (see the Jan 88 article). In both cases, if SA4 
is non-zero, the operation is bypassed. You will get no 
display on the screen, and no keystrokes will be waited for. 
KEYIN will tell the world you typed an ESCAPE key, no matter 
what you may have really done. I don't know why all this is 
here yet. 


Assuming $A4 is zero, Lines 1690-1720 will save the current 
Cursor position. Apparently the cursor position may be changed 
in some circumstances within the KEYIN routine, and so we save 
them for later restoration. 


The second part of KEYIN gets the next character. The “next 
Character“ may have already been typed a while ago, and tucked 
away in the type-ahead buffer. If so, KEYIN will get it from 
there. If not, it will wait until you type one. 
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RamKeeper 


For the “Instant On” Apple IIs 
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Permanent Storage with an 
“Electronic Hard Disk’ 

Now when you tum on your IIGs your 
favorite program can appear on screen 
in just a few seconds! With RamKeeper, 
your IIGS memory card will retain stored 
programs and stored data while your 
lIGs is tumed off RamKeeper allows you 
to divide your IIGS memory into part 
“electronic hard disk” and part RAM for 
your programs workspace—in almost 
any Way you want and at anytime you 
Want GS-RAM, GS-RAM Plus, Apple IIGs 
memory card and most other IIGs 
memory cards are compatible with 
RamKeeper. 


Supports Up to Two IIs Memory 
Cards at the Same Time 

If you bought your IIGs with Apple's 
memory card and later wished you had 
the Gs-RAM, no problem. RamKeeper will 
support both cards plugged into Ram- 
Keeper simultaneously! 


How it Works 
Just unplug your IIGS memory card 


“Tve purchased several 
Applied Engineering 
Products over the years 
They're always well 
made and performed 
as advertised | 
recommend them 
twhole-heartedh.” 


Steve Wozniak, the creator 
of Apple Computer 


APPLIED gM 


eee 
~~ 
‘aii 7 


from your computer, plug your IIGs 
memory card into RamKeeper, plug 
RamKeeper into the IIGS memory slot If 
you have another [IGS memory card, an 
additional card socket on RamKeeper 
will accommodate your second card. 
That's all there is to it! 


Reliability from the Most 
Experienced 

Applied Engineering has the most 
experience in the industry with battery- 
backed memory for the Apple so you are 
assured of the most reliable memory 
back-up system available. And in the 
word of battery-backed memory, reliabil 
ity is everything! That's why Applied 
Engineering uses the more dependable 
Gel-Celf's instead of Ni-Cad batteries (if 
Ni-Cad’s aren't discharged periodically, 
they lose much of their capacity). 
RamKeeper has close to 6 times (about 
6 hours) the “total power failure” back- 
up time of other systems. When power 
retums, RamKeeper automatically re- 
charges the battery to a full charge. With 
power from your wall oudet, RamKeeper 
will back-up your IIGS memory cards 
RAM indefinately. 


e Allows instant access to your programs 
without slow disk delays 

e Configure Kilobytes or Megabytes of 
instant ROM storage for your favorite 
Programs 


| e Reduces power strain to vour intemal 


IGS power supply 

e Contains back-up status LED.’s 

e Can support up to wo TGs memorn 
cards simultaneoush: 

e Supports both 256K installed memory 
chip boards like Gs-RAM and the Apple 
IiGs Memon: Expansion Card as well 
as 1 MEG installed memory chip 
boards like Gs-RAM Plus 

e 5-year hassle-free warranty 

e 15 day money back guarantee 

e Proudh: made in the USA 

e RamKeeper comes complete with 
battery, software and documentation 


Only $179.00! 
(GS-RAM card sboun in photo 
not included) 


Order Your RamKeeper Today! | 

See your dealer or call (214) 241-6060, 
9:00-11:00 CST, 7 days a week, or send 
check or money order to Applied 
Engineering, MasterCard, VISA and | 
CO.D. welcome. Texas residents add 7% 
sales tax. Add $10.00 if outside USA 


ZAC APPLIED ENGINEERING” 
The Apple enhancement experts. 
(214) 241-6060 


P.O. Box 798, Carrollton. TX 75006 


Prices subject to change without notice 
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You will recall that I talked about the POLL.KEYBOARD 
subroutine and the ihc ce ce buffer in the December 1987 
issue. Lines 3970-4300 of this month's code show two more 
Subroutines associated with the type-ahead buffer. 

CLEAR .KEYBUF will empty the type-ahead buffer, and CHECK.KEYBUF 
will test whether there are any characters in the buffer or 
not. For some reason there does not appear to be any 
subroutine to get a character out of the type-ahead buffer; 
instead, that code is included in-line wherever it is needed. 
This is not very efficient, but it “is what is“. Lines 
1760-1850 are one example of this. If it were up to me, I 
think I would have written one subroutine which returned Carry 
Clear if there were no characters in the buffer, or Carry Set 
if there was a least one character. In the latter case, I 
would also return the next character from the buffer in the 
A-register. Something like this: 


GET .CHAR .FROM.KEYBUF.IF.ANY 
LDA KEYBUF.OUT 
CMP KEYBUF.IN 


BEQ .2 .. buffer is empty 
TAX — Use the “out” index 
LDA KEYBUF,X Get character from buffer 
INX Advance buffer index 
CPX #10 Compare to buffer size 
BCC .l ---not off the end yet 
LDX #0 Wrap-around to beginning 
al STX KEYBUF.OUT New “out" index 
SEC Indicate we got a character 
RTS 
o2 CLC Indicate buffer was empty 
RTS 


If that subroutine existed, I could replace lines 1760-1850 
with 


1760 JSR GET.CHAR.FROM.KEYBUF.IF.ANY 
1770 BCS .1ll eee-got a char 


and eliminate the CHECK.KEYBUF subroutine. Cleaner code, in my 
estimation, and shorter too. 


If there is no character waiting in the type-ahead buffer, 
lines 1860 and following will get one from the keyboard. This 
is not as simple as it sounds, because there are a lot of 
options. First, there are three possible choices for the kind 
of cursor display during keyboard input. As the comments in 
lines 1860-1940 say, you may choose a blinking underline 
cursor, a flashing block cursor, or no cursor at all. If you 
are an AppleWorks user, you will recognize the first two 
options as the insert and overwrite cursors. The third, no 
cursor at all, used when a message like "Press Any Key to 
Continue” is displayed. The options are selected by values in 
two variables I have named KEYIN.CURSOR.FLAG and 
KEYIN.CURSOR.TYPE. 
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Just in case we are going to display a cursor, lines 1960-2050 
retreive the current screen character at the cursor position 
and save it. If the current cursor position is in AUX RAM, 
then screen memory is left switched in the AUX position. Line 
2540 will later switch it back to MAIN RAM, after a keystroke 
has been read. 


Lines 2070-2080 test whether we have chosen to display a cursor 
Or not. If not, lines 2090-2140 will call on the READ.KEYBOARD 
subroutine to wait for you to type something. READ.KEYBOARD 
(lines 3670-3950) is a little smarter than the average keyboard 
reader. First, it does not wait forever. You call it with a 
timeout value in the Y-register. The loop which polls the 
keyboard counts down the timeout value. If it reaches zero, 
READ.KEYBOARD returns with a FALSE status; if you type a key 
before timeout, READ.KEYBOARD returns with the character in the 
A-register and a TRUE status. In addition, notice at line 3750 
that READ.KEYBOARD stores whatever character was in the 
A-register on the screen. This character is determined by your 
choice of a cursor display. Finally, this subroutine reads the 
Open- and Solid-Apple keys. If either one of them is 
depressed, bit 7 of the character value is made 1; if neither 
is depressed, bit 7 is made 0. 


If you do want a cursor display, lines 2150-2170 decide which 
type you want. Lines 2180-2310 handle the blinking underline, 
and lines 2320-2460 handle the flashing block. The blinking 
underline is in reality a repeating series of three characters: 
an underline, a blank, and the original screen character. The 
timeout values are chosen so that the underline and blank each 
are on the screen for about 17% of the time, and the original 
Character the remaining 66%. If you like changing such things, 
this is the place to do it. You can change the overall speed 
of the blink, or change the ratio, or change the characters. 
You might choose one of the mousetext characters here, just for 
fun, instead of the underline. For example, $5C instead of SDF 
would display an under- and over-line character. 


The flashing block cursor display involves change the character 
retrieved from the screen to the inverse equivalent character, 
and alternating between it and the original character. Lines 
2330-2420 put up the inverse character for 79% of the time, and 
lines 2430-2460 put up the normal character for 21% of the 
time. 


Regardless of which of the two displays you choose, when you 
type a key control will go to ".10* at line 2480. Here the 
Or: ginal screen character will be restored. 


Anc., regardless of which of three cursor-types, you eventually 
wird up at ".11", line 2540. Here we turn screen RAM back to 

MAiN, and test whether you have opted for further analysis of 

the input character or not. The variable at SFC4, which I did 
not give a meaningful name yet, controls that option. If SFC4 
is non-zero, the game is all over; if zero, the KEYIN.ANALYSIS 
section gets to do some work. 
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I have detailed what KEYIN.ANALYSIS does in the comments in 
lines 2580-2790. Any normal printing character will simply be 
passed to you without further action. Any control character 
will clear the type-ahead buffer and then be passed to you. 
Any Apple-character will also clear the type-ahead buffer, and 
if it is not one of the special ones it will be passed to you. 


The “special” Apple-characters are what KEYIN.ANALYSIS is here 
for. Lines 2990-3040 map lower-case letters to the upper-case 
range. Apple-E is used to change the cursor-type. If you have 
a blinking underline cursor on the screen, typing Apple-E makes 
it change to a flashing block cursor. And vice versa. The 
cursor-toggling code is in lines 3500-3560. Apple-H is used 
to print the screen contents on your printer. The code to do 
the screen dump is located right here, in lines 3170-3400. 
Apple-Q, -S, and -Y are also looked for. If you type and 
Apple-/, lines 2900-2980 change it to an Apple-? and pass the 
new code on to you. 


By the way, that code for the Apple-/ is sure strange. It 
tests for the “/* characte THREE TIMES! Why? I can think of 
two reasonable answers. First, maybe there used to be two 
other keys besides “/“ which were changed to “?"; if so, maybe 
the author simply patched the code the way it is now rather 
than revising and re-assembling it. Naw.... More likely is 
that this is a “hook” for catching knockoffs of the code. I 
have found other hooks, such as deliberate use of a 3-byte 
reference to a pagezero variable when a 2-byte instruction 
could have been used. Anyone copying the code to create an 
illegal copy of AppleWorks for sale under their own name might 
miss these hooks, and find themselves waking up in court. 


The Screen Print code is rather interesting. It calls ona 
subroutine I call PRINTER.DRIVER for printing each line, but 
that subroutine is not listed here. There are four different 
types of calls to PRINTER.DRIVER, controlled by the value in 
the A-register. If (A) is zero, the printer is initialized. 
On an Apple //e this means sending out a control-I code, and 
“80N", which turns off the screen echo many printer interfaces 
would otherwise perform. On an Apple //c it sends out the 
controls to set up the baud rate and LF after CR for a serial 
ImageWriter printer. More on this in a future issue, 


Lines 3230-3290 copy a line from the screen to a buffer 
starting at $900, and then print it on the printer. At lines 
3250-3270 PRINTER.DRIVER is called with (A)=79, the line 
length, which means to print a string whose address follows the 
JSR instruction. Then at lines 3280-3290 PRINTER.DRIVER is 
called with (A)=SFE, which means to print a carriage return. 
Finally, Lines 3340-3350 call PRINTER.DRIVER with (A)=SFF, 
meaning to “close" the driver. 


After the screen print is completed, lines 3370-3390 make sure 
the cursor is back where it started. However, I did not notice 
anywhere it ever got moved, so this may be redundant code. The 
subroutine called here, MOVE.CURSOR.TO.XY, is shown in lines 
4320-4480. It uses a round-about method, building a string for 
last month's DISPLAY.STRING subroutine. The setup for 
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SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below. Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4K ROM for a total of 8K. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches control defaults. 


IMPROVED 111 Jf INA MAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple Ii 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS. All 
Apple |i features are supported such as HI/LO-RES graphics, 40/80 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. Includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and | Apple {I diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple |i on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple Ii screen. Then use SCREEN GEN to transfer directly from the MAC to an Apple tl (with 
SuperSerial card ) or lic. includes Apple Il diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MiDi-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-4AGIC compatible 
with Apple I! family using Passport MIDI card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc.) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Il, lit. //e. Specify 
printer: Apple Imagewriter Apple Dot Matrix, C.itoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192. 
* FONT LIBRARY DISKETTE #1: $19.00 contains iots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple |i machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables, displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine Janguage learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 
The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 
Converts a ‘dumb’ parallel printer !/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title, large HIRES graphics & text screen dumps. Specify 
printer: I1X-80 with Graftrax-80, MX-100, MX-80/100 with Graftraxplus, NEC 68092A, C.itoh 8510 
(Prowriter), OkiData 82A/83A with Okigraph & Okidata 92/93. 
‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation's Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone 
detection, audible ring detect, ring-back. printer buffer, 80 col card & shift key mod support. 
RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $CB800-CFFF. 
C-PRINT For The APPLE //c: $69.00 
Connect standard parallel printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


Unless otherwise specified, all Apple Ii diskettes are standard (not copy protected!) 3.3 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 
CEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
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DISPLAY.STRING is also handled in a round-about way, using the 
code I called POINT.PSTR.AT.OA00, lines 4500-4600. I haven't 
yet found any reason why this code is not simpler. Why go 
through the back bedroom to get from the kitchen to the dining 
room? I think I would have written MOVE.CURSOR.TO.XY like 
this: 


SC.MOVE.CURSOR.TO.XY 

TXA 

CLC 

ADC AW.LEFT 
STA AW.CH 

TYA 

ADC AW.TOP 
STA AW.CV 

RTS 


The screen print code also calls on the subroutine I show in 
lines 4620-4940, COPY.SCRN.LINE.TO.0900. This subroutine picks 
up one line of characters, translating them from display codes 
to printer codes, and places the result in a buffer at $0900. 
Another subroutine, MAP.SCRN.CHARS.TO.INTERNAL, does the 
translation. That MAP... subroutine is never called from 
anywhere else, so it really should be considered part of the 
COPY... subroutine. Together they take 72 bytes. I rewrote 
COPY..., and my simpler, shorter version is shown in lines 
5240-5600. Mine only takes 50 bytes. If someone had time to 
go over the whole program the same way, there might be room for 
a lot of new features. 


1000 ®SAVE AW.SUBS.3 
1010 Semen mmm nen new me wwe ewww mee none 
14a 1020 AW.CH -EQ $14 
15= aORG AW.CV EQ $1 
16- 1040 AW.BASE .EQ 7 
80- 1050 PSTR -EQ $80,81 
one pee coe ah +: a6 Current Keyin Character 
Aue 1080 Z. Au -EQ $A4’ 
0900- 1100 X.0900 .EQ $0900 Used during Screen Print (Apple-H 
0901- 1110 x: 0801 ER 3080 . ppte-H) 
0OA00- Mes X.0A00 .EQ $0A00 Used for building little strings 
OA0O1—- 1140 X.0OA01 .EQ $0A01 
OA02—- 120 X. OAO2 -EQ $0A02 
OEAT- athe X.OEA7 .EQ $0EA7 
OF 3B- 1190 X.OF3B .EQ $0F3B 
OF 3D- 1200 X.0OF3D .EQ $0F3D 
OFCH- 1210 X.OFC4 .EQ $0FCH 
1220 Bemw mm ww enn ee ewe eww eo nwo 
ian ~PH $1099 
1099= 00 OA 1240 HANDLE.OAOO .DA X.OA00 
1250 ~ EP 
1260 
12070: Beatececcoecseecss oe sc ue eeceecU 
1280 PH piie 
1176= 01 1290 KEYIN.CURSOR.TYPE ~HS 01 OOsunderline, 01=flashing 
Ga 01 1310 KEYIN.CURSOR.FLAG -HS 01 OO=no cursor, Otlzcursor 
1178- 1310 -BS 2 other variables 
Uy ts 1320 KEYBUF -BS 10 type-ahead buffer 
1184- 00 1330 KEYBUF.IN ~HS 00 
1185—= 00 1340 KEYBUF.OUT -HS 00 
Oe 
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For Those Who Want the Most. 
From Those Who Make the Best. GS-RAM:* 


Now expand the lIGS’ RAM and ROM with up to8 MEG of “Instant On” memory with the all new GS-RAM! 


GS-RAL 


Gs-RAM has an all new design. A design that 
delivers higher performance including in- 
creased speed, greater expandability, and 
improved software. 
More Sophisticated, Yet 
Easier to Use 

GS RAM works with all Ics software. In fact 
any program that runs on Apple’s smaller 
memory card runs on the Gs-RAM. But with 
GS-RAM you can have more memory, im- 
proved performance, and almost unlimited 
expansion capabilities We've designed the 
new Gs-RAM to be easier to use too—you 
don’t have to adjust the size of your RAM 
disk every time you use a DMA device. No 
other RAM card with more than 4 banks of 
memory installed can make the same daim. 
More than Just Hardware 

Each Gs-RAM and Gs-RAM Plus includes the 
most powerful set of Ics software enhance- 
ments available anywhere. In fact, our nearest 
competitor offers only a fraction of the 
invaluable programs that we include with 
each Gs-RAM card. This software includes the 
the Gs-RAM Cache. The Cache will make most 
of your applications run up to 7 times faster. 
Also induded is a diagnostic utility that lets 
you test your Gs-RAM by graphically showing 
the location of any bad or improperly 
installed RAM chips. And for AppleWorks 
users, we give you Our exclusive Expander 
program that dramatically enhances both the 
capabilities and speed of AppleWorks. 
Making AppleWorks Even Better 

Applied Engineering’s Expander program 
eliminates AppleWorks internal memory limits 
allowing it to recognize up to 8 megabytes of 
desktop workspace. You can increase the 
limits from only 7,250 lines to 22,600 lines in 
the word processor and from 6,350 records 
to 22,600 records in the database. The 
Expander allows all of AppleWorks, induding 
print functions, to automatically load into 
RAM. The clipboard size will increase from 
255 to 2,042 lines maximum. Gs-RAM will 
automatically segment larger files so you can 
save them onto multiple floppies. And 


GS-RAM provides a built-in print buffer that 
allows you to continue working in Apple- 
Works while your printer is still processing 
text You can even load Pinpoint or Macro- 
Works and your favorite spelling checker into 
RAM for instant response. 
Grow by Kilobytes or Megabytes 

We offer Gs-RAM in two configurations so 
you Can increase your memory 256K at a 
time (Gs-RAM) or a megabyte at a time 
(Gs-RAM Plus). Both are IIGs compatible and 
both come with our powerful enhancement 
software. Gs-RAM can hold up to 1.5 MEG of 
250K chips and Gs-RAM Plus can hold up to 
6 MEG using 1 MEG chips. And since both 
use standard RAM chips (not high-priced 
SIMM'’s), you'll find expanding your Gs-RAM 
or GS-RAM Plus easy, convenient, and very 
economical For further expansion, you can 
plug a 2 MEG “piggyback” card into the Gs- 
RAM'’s expansion port for up to 3.5 MEG of 
total capacity. Or up to a whopping 8 MEG 
on Gs-RAM Plus. If a Gs-RAM owner outgrows 
3.5 MEG, he can easily upgrade to Gs-RAM 
Plus for a nominal charge. 
Permanent Storage for an 
“Instant On” Apple 

With our RamKeeper™ back-up option, 
your Gs-RAM or Gs-RAM Plus will retain both 
programs and data while your Ilcs is turned 
off Now when you tum your [Ics back on, 
your favorite software is on your screen in 
under 4 seconds! With RamKeeper you can 
divide your IIGs memory into part “electronic 
hard disk,” and part extended RAM. Even 
change the memory boundaries at any 
time—and in any way—you want Because 


“In quality, 
performance, 
compatibility, 
expandability and 
support, Applied 


Engineering's GSRAM 
and GsRAM Plus are 
: , number one.” 


Steve Wozniak, the creator 
of Apple Computer 


Applied Engineering has the most experience 

in the industy with batten-backed memory 

for the Apple, you are assured of the most 

reliable memory back-up system available. 

And in the word of batten-backed memon, 

Retabilit: is everything Thats why Applied 

Engineering uses state-of-the art “GEL-CELL’s” 

instead Of Ni-Cad batteries (if Ni-Cads aren't 

discharged periodicalh, they lose much of 

their capacity). RamKeeper has about 6 

hours of “total power failure” back-up time. 

Thats 6 times the amount of other systems. 

But with power from your wall oudet 

RamKeeper will back-up Gs-RAM, Gs-RAM 

Plus, or most other IIGs memory cards 

indefiniteh. Should you ever have a “total 

power failure,” RamKeeper switches to its 

6-hour battery. When power retums, Ram- 

Keeper will automatically recharge the battery 

to full power. RamKeeper incorporates a 

dualrate charger, status LE.D.’s, and ad- 

vanced power reducing circuitry. RamKeeper 

comes complete with battery, software, and 

documentation. 

GS-RAM’s Got it ALL! 

e 5-year warranty — parts & labor 

e 6 RAM banks (most cards have 4) 

e Memory expansion port 

e ROM expansion port 

e Ulta-fast disk caching on ProDOS 8 AND 
ProDOS 16. 

e Expands AppleWorks intemal limits 

e Includes hi-res self test 

e No soldered-in RAM chips 

e Expandable to 8 MEG 

e No configuration blocks to set 

e RamKeeper back-up option allows 
permanent storage of programs & data 

e 15-day money-back guarantee 

e Proudly made in the USA 


GS-RAM with 256K 
GS-RAM with 512K 
Gs-RAM with 1 MEG 


GS-RAM with 1.5 MEG 
GS-RAM with 2.5 to 3.5 MEG 
GS-RAM Plus with 1-8 MEG 
RamKeeper Option 


Order today! 

See your dealer or call Applied Engineering 
today, 9 am to 11 pm 7 days Or send 
check or money order to Applied Engineering 
MasterCard, VISA and C.O.D. welcome. 

Texas residents add 7% sales tax. Add $10.00 
outside U.SA 


HAC. APPLIED ENGINEERING” 
The Apple enbancement experts. 


(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 
Prices subject to change without notice. 


GSRAM, Gs-RAM Plus and RamKeeper are trademarks of Applied Engineering, Other brands and product names are registered dademarks of their respective holders. 
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CO 2010 


KEYBOARD -EQ $C000 
STROBE ~-EQ $C010 
SCRN .MAIN ~-EQ $C054 
SCRN . AUX -EQ $C055 
AP PLE .OPEN ~-EQ $C06 1 
APPLE . SOLID .EQ $C062 
BrSPLAY. STRING ~EQ $14D1 subroutine in AAL Jan 88 
BASE.CALC.A -E vat subroutine in AAL Jan 88 
PRINTER. -DRIVER ~-EQ $1C21 subroutine in future AAL 
I. 1DOE -EQ $1D0E 

PH $1D30 
# (1D30) 1D71 1D7B 1D8C 1D9A 1DA6 1DBC 1DCA 
KEYIN.CHAR.UNDER.CURSOR -BS 1 
# (1D31) 1D6C 1DC7 1FOF 
KEYIN.COLUMN .INDEX -BS 1 
# (1D32) 1E27 1E2A 1E3C 1E3F 
KEYIN.APPLE.H.LINE.NUMBER .BS 1 
# (1033 1D3E 1E4XE 
Rey IN fi EYP SOR: CH -BS 1 
# (1D34) 1D43 1£51 
KEYIN.CURSOR. CV -BS 1 
# (1033) 1066 1192 137F 193F 19C5 1BFD 
AW. KEYIN 

A Z. AY a non-zero, exit now as if 

BEQ .1 ou typed <ESC> 

JMP KEYIN. EXIT. CAPE 

1 LDA AW.CH Save current cursor position 


ae KEYIN.CURSOR.CH 
LDA AW.CV 
STA KEYIN.CURSOR.CV 


® (1D46) 1E1A 1e57 1E78 
KEYIN.ANOTHER 
eh CHECK. AKEYBUF Any characters in key-buffer? 
eee NO 
LDX KEYBUF.OUT ~-e-yes, get char from keybuf 
LDA KEYBUF,X 


INX Bump keybuf out-index 

CPX #10 At end of buffer? 

BCC .1 ee eno 

LDX #$00 .»-yeS, wrap around to beginning 
‘1 STX KEYBUF.OUT Save new keybuf out-index 

JMP .11 Use the character 


Key-buffer is empty, so we need to get a character 
directly from the keyboard. Therefore, we must: 
- Save character now on screen under cursor 
2. Put 4 an appropriate cursor 
a. blinking underline 
b. flashing screen char 
c. no cursor at all 
3. Get a keystroke. 
2 LDA AW.CV Point to the character at the cursor 
JSR BASE.CALC.A 
LDA AW.CH 


LSR 

BCS .3 -««Odd column, main RAM 
3 Sie SCRN. AUX ...Even column, aux RAM 

STY KEYIN.CO we INDEX 

LDA (AW.BASE 

STA KEYIN. Cliak. ~UNDER. CURSOR 

#.--Select t pepe © eetoetetetenteten 
LDX KEYIN. CURSOR. FLAG 


BNE .5 --ewe do want a cursor display 
#.--No cursor or alle------------- 
4 LDY #$FF Long time-out count 


LDA KEYIN.CHAR. U ER .CURSOR 

JSR READ. KEYBOARD 

BEQ .4 .»»No key yet 

BNE .11 -.- got a keystroke! 


-Apple Assembly Line.....February, 1988..... Copyright (C) S-C SOFTWARE 


ee AE fe 11 


8C- CD 30 1D 
1D95= 20 OC IF 
1D9A= AD 30 1D 


1D9F=- 20 OC IF 


1DA6= AD 30 1D 


2150 #---Some type of cursor--<-----<--- 

2160 .5 LDX KEYIN.CURSOR.TYPE 

2170 BNE .8 .--Use flashing character 

2180 #---Use blinking underline------- 

2190 # Repeat rvta’ of underline, char, blank, char 

2200 .6 LDA #$D Underline character 

2210 CMP KEYIN.CHAR.UNDER.CURSOR 

2220 BNE 7 e+e screen not now an underline 
2230 LDA #" ® -.-now underline, change to blank 
2240 .7 LDY #28 Short time-out 

2250 JSR READ. KEYBOARD 

2260 BNE .10 5° aCe a Key! 

Sehe LDA KEYIN.CHAR.UNDER.CURSOR 

2280 LDY #108 Long time-out 

2290 JSR READ. KEYBOAR 

2300 BNE oe got a key! 

2310 BEQ . -e- always (no keystroke yet) 

2320 #---Use flashing character------- 

2330 . LDA KEYIN.CHAR .UNDER.CURSOR 

2340 AND #$7F Change character to inverse 

2350 CMP # 

2360 BCC . 

2370 CMP #360 

2330 BCS . 

2390 AND #$BF 

2400 .9 LDY #$6C 

2410 JSR READ.KEYBOARD 

2420 BNE .10 a Sh a key! 

att LDA KEYIN.CHAR.UNDER.CURSOR 

24 LDY #2 Short time-out 

2450 JSR READ. KEYBOARD 

2460 BEQ . ---no keystroke yet 

2) 0 Sar be key, restore scrncohar-- 

2490 LDY KEYIN.COLUMN. INDEX 

2500 LDA KEYIN.CHAR.UNDER.CURSOR 

2510 STA (AW.BASE),Y 

2520 PLA 

2530 Bemm eww nn nm wn www en ewe wee weeenwne 

2540 .11 STA SCRN.MAIN Be sure in main RAM 

2550 LDX X.OFC4 Should we analyze the char? 

2560 BEQ KEYIN.ANALYSIS oe - yes 

oe . JMP KEYIN.EXIT ---no, just store and return 
eeaa Analyze the Character 

2610 # 1. If character is $20-7F, just store it and return. 
2620 # 2. Otherwise, start by clearing the key-buffer. 
2630 ® 3. If character is $00-1F, it will be fall through all 
2640 # other tests and return after being stored. 
2650 # 4, If character is $80-FF, an Apple key was down. 
2660 *® 5. If character is $E1-FA, it is lower-case and will 
2670 # be changed to upper-case (§C1-DA). 

2680 ® 6. If character is not one of the following, just 
Boy : store it and return. 

2710 Apple-/ Shanes to Apple-?, and return. 

2720 &® Apple-H Print the screen, get another char. 
2730 & Apple-Q Clobber Z.A4, substitute <ESC>, return. 
2740 ® Apple-Y Change to Control-Y and return. 

2750 # Apple-S If $EA7 non-zero, just store and return. 
21 0 # Else, clobber Z.A4, substitute <ESC>, 
2 fo ® and return. 

Abs Apple-E Toggle Cursor Mode, get another char. 
5h80 KEYIN.ANALYSIS 

2810 CMP #$20 

2820 BCC . ~-eControl Character, analyze it. 

2 30 CMP #$7F 

2840 BCS . -e Apple Character, analyze it. 
2850 JMP KEYIN.EXIT 

2860 mgr nati ee the keychar---------- 

2870 . P Save character temporarily... 

2880 JSR CLEAR .KEYBUF 

2890 PLA ~eeand get the character back. 
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Introducing 
PC Transporter.” 
The Apple® II expansion 
board that lets you 
run MS®-DOS programs. 
Now your Apple II can run 
over 10,000 programs you could 
never use before. Like Lotus® 
1-2-3® MultiMate® dBASE III 
PLUS® Even Flight Simulator® 
With PC Transporter, MS-DOS 
programs run on your Apple II 
like they do on IBM® PC's or 
compatibles. With one important 
difference. PC Transporter runs 
most of those programs three 
times faster than an IBM PC/XT® 
Plus, to speed through number- 
crunching tasks, you can use 
our optional 8087-2 math co- 
processor chip. It plugs into a 
socket on the PC Transporter. 
Less expensive than an 
IBM clone. 
Sure, a stripped-down IBM 
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clone costs about the same as 
the PC Transporter. But the pe- 
ripherals it takes to get the clone 
up and running make the clone 
cost about three times what our 
American-made card costs. 

You don’t have to buy new 
hardware to use PC Transporter. 

Works with the hardware you 
already own. 

With PC Transporter, MS-DOS 
programs see your Apple hard- 
ware as IBM hardware. You 
can use the same hardware you 
have now. 

With IBM software, your Apple 
hardware works just like IBM 
hardware. Including your drives, 
monitors, printers, printer cards, 
clock cards and serial clocks. 


i 
i 
ul 
i 
i 


hi 


S faster th 


an IBM. 


You can use your Ile® or IIlGs™ 
keyboard with IBM software. Or 
use our optional IBM-style key- 
board (required for the II Plus). 

You can use your Apple mouse. 
Or an IBM compatible serial 
mouse. 

Plenty of power. 

PC Transporter gives you as 
much as 640K of user RAM 
and 128K of system RAM in the 
IBM mode. 

PC Transporter also is an Apple 
expansion card, adding up to 
768K of extra RAM in the Apple 
mode. The Apple expansion alone 
is a $300 value. 

Easy to install. 

You can install PC Transporter 
in about 15 minutes, even if 
you've never added an expansion 
board. You don’t need special 
tools. Simply plug it into an Apple 
expansion slot (1 through 7 ex- 
cept 3), connect a few cables and 
a disk drive, and go! 
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PC Transporter taps into the world’s largest 
software library. Now your Apple can 

run most of the IBM software you use 

at work. And it opens a new world of 
communications programs, games and 
bulletin boards. 


A universal disk drive 
controller. 

PC Transporter supports 3.5” 
and 5.25” MS-DOS and ProDOS 
formatted diskettes. You'll shift in- 
stantly between Apple ProDOS 
and IBM MS-DOS. 

You'll need our versatile 5.25” 
360K drive system to run IBM 
applications from 5.25” floppy 
disks. Use your Apple 5.25” drive 
for Apple 5.25” disks. 

An Apple Disk 3.5 Drive will 

ipport the new 3.5"disks 
whether they’re IBM MS-DOS 
formatted or Apple ProDOS for- 
matted. The PC Transporter acts 
like an Apple Disk 3.5 Drive disk 
controller for IIGs, Ile, and II 
Plus users. 

PC Transporter supports 
up to 5 drives in a number of 
combinations. 

For example, you can connect 
a 5.25 Applied Engineering 360K 
dual-drive system directly to the 
card. Then plug two daisy-chained 
Apple 3.5 Drives (not the Apple 
UniDisk 3.5) to the dual-drive 
system. For a fifth drive, use a 
ProDOS file as an IBM hard disk. 


PC Transporter controls Apple and IBM 
compatible disk drives. It supports 3.5 " and 
5.25' MS-DOS and ProDOS formatted 
diskettes. 


Applic 1) Plas mua be FOC Certified. IBM and PU/XT are registered tradicmarks of intcmational Busine 
tralcmarks Fligha 


of Ashton: Bate, lac. MS and 


Versatile data storage. 

PC Transporter reads MS-DOS 
and translates it into Apple native 
ProDOS. You can store IBM pro- 
grams and data on any ProDOS 
storage device including the 
Apple 3.5 Drive, Apple UniDisk™ 
3.5, Apple 5.25” drive, SCSI or 
ProDOS compatible hard drives. 
(You can use the Apple UniDisk 
3.5 with its own controller card 
for storing programs and data,but 
not for directly booting an IBM 
formatted disk. ) 

You can even use our 360K PC 
compatible drive for ProDOS 


Make your Apple speak IBM. 


PC Transporter memory choices. 


RAM in RAM in 
Apple mode: IBM mode: Price: 
384K 256K $489.00 
512K 384K 529.00 
640K 512K 569.00 
768K 640K 609.00 
Note: The IBM mode is 128K less because 


the PC Transporter uses 128K for system 
memory. 


lics Installation Kit 


ie/II Plus 
Installation Kit 39.00 


PC Transporter Accessories 


5.25” IBM Format 360K 
Drive Systems 
Single-Drive System 
Dual-Drive System 399.00 
Half-Height Drive 135.00 


(add to Single-Drive system to make 


Dual-Drive ) 


(required for Apple 1 Plus. Requires 

IBM Keyboard Cable. ) 
IBM Keyboard Cable 34.00 
Sony RGB Monitor 499.00 
Analog RGB Cable 

(for use with Sony monitor ) 


Digital RGB Cable 


(for use with Sony monitor ) 
Digital RGB Adapter 
ColorSwitch 

(included with IIcs Installation Kit) 


128K ZIP 
PC Transporter 
Memory Expansion 


49.00 


269.00 


per set 


(ile and II Pht onty) 


See your dealer or call or send 
check or money order to Applied 
Engineering. MasterCard, VISA and 
COD welcome. Texas residents 
add 6%% sales tax. 


PC Transporter produces better IBM graphics 
than IBM. Analog ts sharper than digital. 
$o with an analog RGB monitor PC 
Transporters CGA graphics and text are 
superior to IBMS digital display — even 
while running IBM software! 

And, you can also use an Apple composite 
monitor in IBM text or graphics mode. 


storage and a 143K Apple 5.25” 
drive for MS-DOS storage. 

Created by Apple's original 

designers. 

The brains behind PC Trans- 
porter were also behind your 
Apple II. 

The PC Transporter design 
team includes the former project 
managers for the creation of the 
Apple Ile and IIc. The co-designer 
of the Apple II disk controller. 
And the first full-time Apple 
programmer and author of the 
ProDOS operating system. 

So you know the PC Trans- 
porter and your Apple were made 
for each other. 

Support and service from the 
leader in Apple add-ons. 

Applied Engineering sells more 
Apple peripheral boards than any- 
one else — including Apple 
Computer. So you know we'll be 
around after the sale. 

PC Transporter comes with a 
15-day money back guarantee. If 
you're not fully satisfied after 
using it, return it for a full refund. 
PC Transporter also comes with a 
1-year warranty. 

How to get your PC 
Transporter today. 

See your dealer. Or call Applied 
Engineering any day between 
9 am. and 11 p.m. CST at 
214-241-6060. 


Vu wl Applied Engineering 
The Apple enbancement experts. 


PO. Box 798, Carrollton, TX 75006 
214-241-6060 


A Division of AE Research Corporation. 


ws Machines. langue and 1-2-4 aru registered tradomarts of Lotus Develupment Corporation. beaolereis and GHASE 1H PLUS are nopstered 
Simulator aru cugkdcred sraclcmnirl, uf Microsoft. Apple te and ProDOs aru repistered tradicmarts and [Os and UniDisk arc trademarks af Apple Computer 
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IDF9= 4C 7D 1E 2980 


2990 
IDFC- C9 E 000 
1DFE= 90 0 010 
1EO00- C9 FB 020 
1EO2- BO 02 030 
1EO4= 29 DF . 
1E00- C9 D 02 
1EOS- DO 0 070 
1EOA- 29 1F $00 @ 
1EOC- C9 C8 100 
1EOE- DO 4A 110 
1E10=- AD OE 1D 3120 
1E13- DO 05 130 
ura AD 38 OF 3 0 
1E18= DO 2 150 
1E1A= 4C 46 1D ag 3s 
1E1D- 8D 3D OF 4189 
1E20=- AQ 00 190 
1E22= 20 21 1C 3590 
1E25= AX 00 210 
1E27- 8D 32 1D 3220 
1E2A- 2 1D 3230 
1E2D- 20 7A 18 3240 
1E30=- AQ 4F 250 
1E32= 20 21 1C 3260 
1E35=- 00 09 270 
1E37- AQ FE 32380 
1E39= 20 21 1C 3290 
1E3C- EE 32 1D 3 00 
Ie ros AD 32 1D 10 
1E42- C9 18 3320 
1E44- 90 EX 3330 
es AQ FF 33 0 
1E48— 20 21 1C 3350 
1E4B- 20 EO 1F 3360 
1EXE- AE 33 1D 3310 
1E51= AC 3 1D 3 0 
1E54- 20 2 18 3390 
1E57= AC 46 1D a40 
1E5A=- C9 D1 420 
1E5C=- FO 09 Re 
see C9 D 440 
1E60—- DO 0 450 
1E62—- AE AT OE 3460 
1E65- DO 0 419 
1E67- 85 A 480 
1E69- 4C 7B 1E hr 
1E6C- C9 C5 3240 
1E6E- DO OD 3520 
1E70- AD 76 11 35 
1E73- 49 01 5 
He 8D 76 11 35 
1E78- 4C 46 1D 35 
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LDA 
KEYIN.EXIT 
0 STA 


#.--Check for Apple-Slash-------- 
CMP #"/* 


BEQ .2 - Apple-Slash 
CMP #*/* <<<I don't know why they do it 3 times>>> 
ie rae <<<Maybe just for the fun of it.......>>> 


3 ee NOt pppaee? 
JMP KEYIN.EXIT 
#.--Map Lower-Case to Upper------ 
‘ CMP #"a® 
BCC .4 ~e-not lower-case letter 
CMP #"2"+1 
BCS .4 ~e-not lower-case letter 


AND #$DF 
tT f AEE ark make Ctrl-Y------ 
une ok for Apple-Y 


AND #$1F Changes $D9 to $19, control-yY 
#---Check for Apple-H woeeenen---- 


25 CMP #"H® Check for Apple-H 
BNE 9 eee not Apple-H 
LDA I. 1D0E 22? 
BNE .6 -» ignore the Apple-H 
LDA X.OF3B 
BNE i ahead and print 
MP KEYIN. ANOTHE -CHAR 


6 J 
#.--Print the screenenn-n<-<2---- 
; A X.OF3D 
LDA #$00 "OPEN® Printer 
JSR PRINTER.DRIVER 
LDA #0 For LINE = 0 to 23 
STA KEYIN.APPLE.H.LINE.NUMBER 
8 LDA KEYIN.APPLE.H.LINE .NUMBER 
JSR COPY.SCRN.LINE.TO.0900 
LDA #79 Print 79 characters from 0900 
JSR PRINTER.DRIVER 
A X.0900 
LDA #$FE Print CRLF 
JSR PRINTER.DRIVER 
INC KEYIN.APPLE.H.LINE.NUMBER Next Line 
LDA KEYIN.APPLE.H.LINE.NUMBER 


CMP #24 at line yet? 
BCC .8 wale g gnoee printing 
LDA #$FF "CLOSE n 


LDX KEYIN. “CURSOR. CH Put cursor back... 
LDY KEYIN.CURSOR.CV ~e- but I don't know how 
JSR MOVE.CURSOR.TO.XY it could have moved. 


‘ JMP KEYIN.ANOTHER.CHAR Get another character. 
9 CMP #"Q*" Check for Apple-Q 

BEQ .10 

CMP #"S" Check for Apple-S 

BNE .11 

LDX X.OEAT 

BNE .11 
~10 oh Z. AX Apple-Q or -S clobbers Z.A4 


Ra EXIT. ESCAPE 

#.--If Apple-e , chante cursor---- 
heck for Apple-E 

BNE REYIN. EXIT 
LDA KEYIN. Cun oUE TYPE 
EOR #$01 Toggle btwn $00 and $01 
STA KEYIN.CURSOR. TYPE 
JMP KEYIN. ANOTHER .CHAR 
# (1E7B) 1D39 1E69 
KEYIN.EXIT.ESCAPE 
#3$1B Say you typed <ESC> 


Z.84 Store character here too 
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3660 
3670 ~PH $1F0A 
680: @cewee coe oe eo eee eee ceca 
1FOA- Say KEYBOARD. TIMEOUT -BS 2 
710 ® (1FOC) eanae 1D95 1D9F 1DB7 1DC1 
720 READ.KEYB 
1FOC=- 8C OB 1F 130 Sry KEYBOARD. TIMEOUT+1 
1FOF- AC 31 1D 31 0 LDY KEYIN.CO Oy INDEX 
1F12= 91 16 750 STA (AW.BASE 
1F14= AD 00 CO 3760 1 LDA KEYBOARD 
1F17= 30 13 t70 BMI .2 ~« got a keystroke 
oe ie AD te 11 3 0 LDA KEYIN.CURSOR.FLAG 
1F1C-} FO 90 BEQ .1 If no cursor, then no time-out either 
1FIE- CE OA 1F 3 00 DEC KEYBOARD. TIMEOUT 
1F21- DO F1 810 BNE .1 more time left 
ar eee CE OB 1F 3820 DEC KEYBOARD. TIMEQUT+1 
1F26=- DO EC tty BNE .1 e--more time left 
1F28- A2 00 840 LDX #$00 timed out, return false 
1F2A— FO 11 850 BEQ ry ~o always 
1F2C- 8D 10 CO 3350 2 STA STROBE Clear the strobe 
1F2F- AE 61 CO th LDX APPLE.OPEN 
1F32= 30 07 3880 BMI .3 Apple, leave bit 7 = 1 
1F34- AE 62 CO 3890 LDX APPLE.SOLI 
1F3T- 30 02 3396 BMI . Apple, mas bit 7 = 1 
1F39- 29 7F 910 AND #$7F No Apple e bit 7 = 0 
1F3B- A2 01 3920 3 LDX #301 Return TRUE 
1F3D- 60 ako . RTS 
3950 ~ EP 
2300 
3h0 : ~PH $1FEO 
3390 # (1FEO) 1084 181D V Beer uEe 1DE7 1E4B 
ees # Clear type-ahead 


4020 Cheenti 


1FEO- AQ gp 4030 A #$00 
1FE2= 8D 84 11 4040 STA KEYBUF.IN 
1FE5= 8D 85 11 4050 STA KEYBUF.OUT 
1FES- 60 4060 RTS 
HO70 Senn nnn ne nnn nnn www een enn ne 
4080 - EP 
4090 
4100 ~PH $13B2 
4110 Sennen nnn ee ne ewe ewww enn ne 
4120 & (1382) 137A 1D46 
nee & heck whether any aaa al are queued up in the 
4140 # keyboard buffer. If return TRUE (status .NE.). 
a120 . If not, return FALSE statue -EQ.). 
ate CHECK .KEYBUF 
13B2- AD 84 11 4180 LDA KEYBUF.IN If pointers are same, the buffer 
13B5=- CD ap 11 4190 CMP KEYBUF.OUT is empty. 
1 B = FO 0 4200 BEQ 1 é0 oe kb is empty 
13BA- AQ 01 4210 LDA #301 snot empty, return TRUE (.NE.) 
13BC=- DO 02 4220 BNE . 
13BE- AQ 00 4230 .1 LDA #$00 
13CO=- 6 4240 3° RTS 
4250 ecg Alternate code to do same---- 
4260 #68 LDA KEYBUF.IN If poinvers are same, the buffer 
4270 eee CMP KEYBUF.OUT is empty. 
4280 #6 RTS ~NE. if not empty, .EQ. if empty 
N290 Bemmn nnn em eww ewe me mw ewe w en en en nnn 
1396 ~ EP 
4310 
a3a6 P ~PH $1823 
430 # (1823) 1024 13A2 1458 1A89 1B1B eee 1E86 1E90 20B6 2B66 2B82 
4350 ® Move cursor to column (X), 1 
4300 Works by building a Setina for STRING.DISPLAY 
y fo MOVE.CURSOR.TO. XY 
ieee. 8E 01 OA 4390 STX X.0A01 Build string "05.XX.YY* 
1826- 8C 02 OA 4400 STY X.OA02 
1829- AQ 05 4410 LDA #$05 "GoToXY" code 
182B- 8D 00 OA 4420 STA X.0OA00 
182E- 20 AY 1E sake on POINT.PSTR.AT.OA0O 
1831- AQ 03 ky LDA #3 String has 3 characters 
1833- 20 D1 14 4450 JSR DISPLAY. STRING 
1836= 60 4460 RTS 
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vite $2 oe ee ne ew oe eee 
BiG ~ EP 
4500 -PH $1EA9 
a i ee ee 
4520 # (1EA9) 182E 1F85 1FEC 208B 20CC 
4330 POINT. PSTR.AT.OA0O 
1EA9= AD 3 10 45 LDA HANDLE.OAOO 
1EAC= 85 4550 STA PSTR 
1EAE- AD gs 10 4560 LDA HANDLE. OAQO+1 
1EB1- 85 81 Nene STA PSTR+1 
1EB3- 60 oe : 4 RTS 
4800 ~ EP 
4610 
u620 ~PH $187A 
4eko # (187A) 1036 1A81 1E2D 
4650 ® Used by Apple-H Screen Print function 
4660 # A) = ine to be copied 
neko # Copies 80 characters to buffer at $0900 
4690 COPY.SCRN.LINE.TO.0900 
ipine 20 17 17 4700 JSR BASE.CALC.A 
wie heck ga 
+ B1 1 4130 =] LDA fAW.BASE) Y 
1883- 30 06 4740 BMI .2 O-FF 
1888- 0 94 1E nee JSR MAP.SCRN.CHARS.TO.INTERNAL 
1888. 35 7F i nt 0.2 AND 3 
ygaD- 9b 1 09 Hid0 <3 SEAL S901 
oe ee a a 
18 T= 20 94 1B 4820 JSR MAP. SCRN.CHARS.TO. INTERNAL 
1BoD- 29 7F  uBRO WAND #378 
189F- 9D 00 09 4850 .5 STA x? 6900 X 
18A2~ B 54 Co 4860 STA SCRN.MAIN 
10A5— E 4 R INX 
Te hee E8 8 INX 
lane ca 2B. Na08 CRY #40 
ee 0 DS 4810 BCC .1 »e-more on this line 
18AC= 60 4ge0 RTS 
\ 30 Peewee wn ee wn nnn eee enw ene ne 
1950 a 
ngee P ~PH $1E94 
4980 : (1E94) 1885 1897 
5000 ® Only called from subroutine which copies 
5010 # a screen line to $0900, and only for 
ea6 ; character values 00-7F. 
5040 # O0-1F to 40-5F 
5050 & 20-3F no change 
5060 # p0=2E to 80-OF (Mouse Graphics) 
a ; : O-7F no change 
5090 MAP.SCRN.CHARS.TO.INTERNAL 
1E94= C9 20 5100 CMP #$2 
1E96= BO O4 5110 BCS .1 not 00-1F 
1E98=- 09 40 5120 ORA ia Change 00-1F to 40-5F 
1E9C=- C9 HO 5140 .1 CMP a0 
1E9E- 90 08 5150 BCC ° oe e 20-3F 
ihe. BOS) ORISG et a fake 60-7F 
1EA¥- 29 BF 21bo AND #$BF Change 40-5F to 00-1F 
1EA6= 09 80 5190 ORA #$80 and then to 80-9F 
1EA8= 6 5200 .2 RTS 
5210 Sennen nnn eon ewww ewe eww eww ewww 
5220 ~ EP 
5230 
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5260 ®sne-so 2 ones econ e cca cane 

5270 SC.COPY.SCRN.LINE.TO.0900 
OA15= 20 17 17 5280 JSR BASE.CALC.A 
OA18= A2 00 5290 LDX #0 
OATA- AO 00 5300 LDY #0 
OA1C= 8D 55 CO 5310 .1 STA SCRN.AUX Even char first 
OAIF- 20 2E OA 5320 JSR GET.MAP.PUT.SCRN.CHAR 
OA22- 8D 54 CO 5330 STA SCRN. MAIN Then odd char 
OA25= 20 2E OA 5340 JSR GET.MAP.PUT.SCRN.CHAR 
OA28—- C8 5350 INY 
OA29= CO 28 5360 CPY #40 
OA2D=- 60 2350 : RTS 

5400 # 00-1F to 40-5F 

5410 @ 20-3F no change 

420 @ O-5F to 0-OF (Mouse Graphics) 

430 @ O-7E no scene 

5yyO @ O-FF to 00-9F 

5NG0) @acwessenac ace eace cue wesatsoees 

5460 GET.MAP. PUT eae pisetey 
OA2E- B1 16 5470 LDA (AW 
0A30- 30 OF 54 BMI eh than e 80-FF to 00-7F 
OA32= C9 60 5490 CMP #$60 now have 00-7F 
OA34=- BO OC 5500 BCS .2 .60-7F no change 
0A36- 6? 4O 5510 ADC #$40 Chan e 00-5F to m3 
0A38- 3 08 5520 BMI . --- 40-5F became Ho. 
OA3A- C9 60 ae CMP ob 
OA3C- 90 O4 5540 BCC -»-- O0-1F became 40-5F 
OA3E- 3F 2220 AND ete Change 60-7F er to 20-3F 
OA40O- 29 7F 5560 .1 AND Change 80- o 00-7F 
OAN2- E ah 02 INX 
nt Sp 00 09 5580 STA X.0900,X 

2230 RTS 

5600 S2axecec- esa see ee eee ce cuebecd 


Enter Hott: 

Basic-like macros which make the complex simple. Don't re-write that 
multiplication routine for the hundredth time! Get EnterSoft instead! Do 
8/16/32/64 bit Math/Input-Output/Graphics simply without all of the 
hassles. These routines are a must for the serious programmer who 
doesn't want to spend al) of his/her time trying to re-invent the wheel. 
DOS 3.3 Version=$30.00, ProDos Version=$30.00, BOTH for only $50.00. 

GET YOURS TODAY. 


G Shave Table Program: 


For once! A shape table program which is logically organizied into its 
componet parts. Each section resides in its own program. The editor, 
disk access, Hi-Res section; each section is separate. Written almost 
entirely in Basic, it 1s easily modified. Not copyprotected! Put them on a 
Hard Disk, Ram Drive, anywhere! DOS 3.3 Version=$20.00, ProDos 
sseuenees 00, BOTH for Sees 00! 


Send Check or Money Order a5 ProDos Upgrade for DOS 3.3 
; EnterSoft Owners = $20.00 
Mark Manning 
c/o Simulacron |/Baggy Game 
P.O. Box $8598 


Webster, TX 77598 $ Thanks for the letters - 
5 Keep Writing! 
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Percentage Printer... cccccvvevcccececess BOD Sander—-Cederlof 


The following program will print the ratio M/N as a percentage, 
assuming M and WN are 24-bit integers. The percentage will be 
rounded to the nearest integer value, and print as one, two, Or 
three digits followed by the "%"* symbol. If M is more than 
999% of N, the value printed will be garbled. 


The straightforward way to compute this percentage would be to 
compute P = 100M/N, convert the quotient to decimal, and print 
it. To accomplish rounding, you could check the remainder 
after the division: if twice the remainder is greater than or 
equal to N, increment the quotient. 


After a little head-scratching, I discovered another method. I 
accomplish the division and the conversion to decimal at the 
Same time, and never multiply by 100. For rounding I cheated a 
little, and added N/256 to M before dividing. 


N/256 is a breeze to compute, because it mearely means 
offseting the addition loop by one byte. However, the CORRECT 
rounding term would be N/200. The difference between N/256 and 
N/200 is 56N/51200, or about .0011N. This is “negligible", at 
least to me. It in effect means that I am rounding up 
percentages with fractional parts above .4989, instead of just 
those with fractions .5 or higher. Who will ever notice? 

Since my main use for this routine is to print what fraction of 
my hard disk is in use, it will be plenty close enough. (In 
fact, maybe I don't even need to round at all!) 


The division/conversion loop works by using partial division. 
Each time I call the division loop, I divide M by N; however, I 
only loop enough times to get the next decimal digit of the 
quotient. Then I multiply the remainder by ten, so that the 
next division will generate the next digit. Trust me, it 
really works! 


I added the digit printout to the tail end of the same 
subroutine which generates the next digit, and put in some 
logic to suppress leading zeroes. It looks funny if 10% prints 
out as 010%, so I ignore that leading zero. On the other hand, 
the logic makes sure 0% does not print as just “%", 


To use the subroutine, you first have to store the 24-bit value 
for N. I wrote a subroutine for this, but you don't 
necessarily have to use it. If you do use it, load the most 
Significant byte in the A-register, the middle byte in X, and 
the low byte in Y. I call this loading a 24-bit value into 
AXY. Then do a JSR STORE.N. In contrast to the usual way you 
see multi-byte values stored in most 6502 code, I store M and N 
in High-to-Low order. This made the various loops inside the 
GET.DIGIT subroutine shorter. Lines 1100-1160 are the STORE.N 
subroutine. Nothing fancy here! 


After storing the N-value, load up the M-value in AXY and do a 
JSR PERCENT.CALC. The percentage that M is of N will be 
printed, and the subroutine will return. I wrote a 
demonstration program, shown in lines 2000-2260. This program 
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sets N=255 and then prints out all percentages for M = 0 to 
255. You can vary the value of N and see different effects. 


When you call PERCENT.CALC, lines 1180-1200 store your M-value. 
Lines 1210-1230 initialize the leading zero flag so that those 
zeroes will be suppressed. Lines 1240-1350 accomplish the 
pseudo-rounding I described above. I append another byte to 
the M-value, which is in effect after the radix point. [Radix 
point? What's a radix point? In decimal numbers, we call it a 
Gecimal point. In binary numbers, we could call it a binary 
point. In general, it is the demarcation between the integral 
and fractional parts of a number.) Finally, lines 1370-1410 
generate and print three digits of the answer followed by the 
%-sign. 


GET .DIGIT, lines 1430-1800, does all the real work. Lines 
1440-1530 subtract N from M until M goes negative. The 
Y-register counts how many times this takes, less one. Unless 
M was greater than or equal to 10N, the number in Y will be a 
value from 0-9, and will be the first or next digit of the 
percentage. But before printing that digit, I need to modify 
the remainder. 


Lines 1540-1610 add N back one time, so that the remainder is 
positive. We subtracted once too often, so this fixes things. 
Then lines 1620-1710 multiply the remainder by 10. Next time 
GET.DIGIT is called, we will generate the next digit of the 
percentage. 


Lines 1720-1790 print the digit, unless it is a leading zero. 
If the digit is not zero, it is obviously not a leading zero, 
so it is printed. Any time a digit gets printed, I store a 
negative value in my leading zero flag, indicating that any 
future zeroes cannot be called “leading" (see line 1780). The 
leading zero flag started out at 2, and each time I test it 
gets decremented in line 1750. If the first two digits are 
both zero, it will go negative forcing the third digit to print 
even it is also zero. 


If you are interested, it is very simple to modify this program 
so that is prints out a rounded percentage in the format 
xXxxx.x%, to the nearest tenth of a percent. All we have to do 
is change the rounding term from N/256 to N/2048, which affects 
the code in lines 1240-1350, and then add the follow lines: 


1392 LDA #".“ Print a decimal point 
1394 JSR MON .COUT 
1396 JSR GET.DIGIT Print the tenths digit 


Other simple modifications could change the variable size from 
24-bits to 16-bits, 32-bits, or whatever you need. 
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1G SAVE S.PERCENT.CALC 
1020 ® Subroutine for pete tng M/N as a percentage 
ice # where M and N are 24-bit integers. 
1040 # 1. With (AXY)=N, do JSR STORE.N 
1050 . 2. With (AXY)=M, do JSR PERCENT.CALC 
FD8E- seks MON.CROUT .EQ $FD8E 
FDDA- 1080 MON.PRBYTE .EQ $FDDA 
FDED- ee MON .COUT EQ $FDED 
1110 STORE.N 
Oaone aD a6 os a ao a MOST SIGNIFICANT 
- + 
o8G - 6C 9D 0 1190 STY N+2 LEAST " 
0809- 60 Mee RTS 
TAD PERCENT .CALC 
eeone gD 97 08 1180 STA M MOST SIGNIFICANT 
OB10- BC 39 08 1200 sty Mc2s=st=‘WAST. 
1210 #---Init Leading Zero Flag------- 
oe - 42 re 08 ea ea oe Start with LZ-flag = 2 
13he #---Add N/256 to Round Result---- 
0818- AD 9D 08 ice LDA N+2 Accuracy would demand adding 
081B=- 8D 9A 08 1260 STA M+3 N/200, t N/256 is close enough. 
OB TES AB or — 1380 Cy #1 a a" 
- a 
ShS1- AB 88 Ob 128s «1 GBA Myx 200 a6 © una 
0827- 9D 98 08 1310 STA M+1,X And 56/51200 = .0010937 (very small) 
O82A—- CA 1320 DEX 
O82B=- 10 F4 1380 BPL .1 
SF 22 $F oo 83 Ce 
1320 #.--Compute & Print Digits------- 
0832=- 20 40 1 fo 2 JSR GET.DIGIT Hundreds digit 
0 27 20 40 08 1380 JSR GET.DIGIT Tens digit 
. - 20 1390 JSR GET.DIGIT Units digit 
O83B- AQ A5 1400 LDA #"$" 
083D=- 4C ED ase JMP MON .COUT 
ine GET. DIGIT 
ong AO FF iT : pot #-1 Y will be the quotient 
ay - a3 “a 1480 1 ee Pe Increment Quotient 
O846- BD 97 08 140 2 LDA M,X Subtract Denominator 
O849- FD 9B 08 1490 SBC N,X 
O84C- 9D 97 08 1500 STA M,X 
Se hy NSB 
0852- BO EF 12a0 BCS .1 This goes around once to often... 
1540 #---Add N back in onCe@m---e------- 
O854- A2 02 122) LDX #2 
0856=- BD 97 1560 .3 LDA M,X So we need to add it back once. 
Shee 0B SP op aig EE 
O85F- 9D 9E 0 1990 STA T,X Save copy of M in T, to make it 
ORES. - - 1008 ae : easier to multiply by 10. 
1620 #-—-Multiply M by (Osuseneoasacce 
0865- 20 8D 08 1930 JSR M. TIMES .2 M=2 (4M +T ) 
O86B- A2 03 1650 LDX #3 .-.add T (copy of original M) 
O86D= BD 97 08 1660 .4 LDA M,X 
we! - 7D JE 0 1976 ADC T,X 
0 2 D 97 08 1680 STA M,X 
OBy7- 16 FY 3700 BPL 
0879- 20 8D 08 1710 JSR M. TIMES .2 5M times 2 is 10M 
1720 #--=-Print digit if not leading zero--- 
O87C=- 98 IT 30 TYA digit is quotient from above 
087D=- DO 05 1740 BNE .5 .eedigit not zero, so print it 
O87F- CE A2 08 1750 DEC Z Is it a leading zero? 
0882- 10 08 1760 BPL .6 ~»-yes, don't print it. 
0884- 09 BO 1770 5 ORA #"0" Make it ASCII 
0886- 8D A2 08 1780 STA Z Kill eon tae ad setting bit 7 = 1 
0889- 20 ED FD 1hae JSR MON.COUT Print the digi 
O88C- 60 1800 .6 RTS 
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O88D- A2 03 1830 LDX #3 Double 4-byte value in M 
O88F- 18 1840 CLC 
0890- 3E 97 08 1850 .1 ROL M,Xx 
0893- CA 1860 DEX 
O894- 10 FA 1870 BPL .1 
0896- 60 1880 RTS 
1830 $e meme mem w mmm o meme nnn nn eens 
tte 13 0M -BS 4 
0 - 1910 N -BS 
089E- 1920 T -BS 
O8A2- 1980 Z -BS 1 LEADING ZERO FLAG 
1320 #® Test Routine for PERCENT .CALC 
1960 # For M = 0 
1 10 # Print M, PERCENT M/255) 
1980 & Next M 
1 90 See bece ces cccoueecciceuce ietesweres 
2000 TT 
O8A3- A? 00 2010 LDA #0 
O8A5-—- D6 08 2020 STA Start TM=0 
O8A8— AA 030 TAX 
O8A9—- AO FF 2040 LDY #255 Set N = 255 
O8AB- 20 00 08 2050 JSR STORE.N 
OBAE- AC D6 O 0.1 LDY TM Set M to ourrent TM 
O8Bi- 98 2070 TYA 
O8B2- 29 07 2080 AND #7 If T™ Mod 8 = 0, start new line 
O8B4- DO 03 2090 BNE .2 ---same line 
O8B6- 20 8E FD 2100 JSR MON .CROUT 
O8B9- 98 2110. TYA Get M again 
O8BA- 20 DA FD 2120 JSR MON .PRBYTE Print M-value too 
O8BD- AQ AO 2130 LDA #* * followed by one blank 
O8BF- 20 ED FD 2140 JSR MON .COUT 
O8C2=- AX 00 2150 LDA #0 
O8C4H— AA 2160 TAX Leading bytes of M = 00 00 
08C5- 20 OA 08 2170 JSR PERCENT. CALC print M/N percent 
O8C5=- AX AD 180 LDA #* 
O8CA- 20 ED FD 2190 JSR MON .COUT followed by two blanks 
O8CD- 20 ED BR 2200 JSR MON . COUT 
O8D0- EE D6 08 2210 INC T™ Next T™ 
O08D3- DO D9 2220 BNE .1 -e-until wraps around to 00 
O8D5- 60 2230 RTS Finished 
DDN Bscewacusccaccusecasc iebtececcccas 
O8D6- 22 , ™ -BS 1 


DON LANCASTER STUFF 


INTRODUCTION 
TO POSTSCRIPT 


A 65 min user group VHS 
video with Don Lancaster 
sharing many of his laser 
publishing and Postscript 
programming secrets. 


Includes curve tracing, $5 
toner refilling, the full Kroy 
Kolor details, page layouts, 
plus bunches more. 


$39.50 


FREE VOICE HELPLINE 


Box 809-SC 


Apple Assembly Line.... 


ASK 
THE GURU 


An entire set of reprints to 
Don Lancaster's ASK THE 
GURU columns, all the 
way back to column one. 
Edited and updated. 


Both Apple and desktop 
publishing resources are 
included that are not to be 
found elsewhere. 


$24.50 


APPLE Ilc/Ile 
ABSOLUTE 
RESET 


Now gain absolute control 
over your Apple! You stop 
any program at any time. 


Eliminates all dropouts on 


your HIRES screen dumps. 
Gets rid of all hole biast- 


ing. For any llc or lle. 


$19.50 


SYNERGETICS 
Thatcher, AZ 85552 


-February, 1988.. 


POSTSCRIPT 
SHOW & TELL 


Unique graphics and text 
routines the others don't 
even dream of. For most 
any Postscript printer. 


Fully open, unlocked, and 
easily adaptable to your 
own needs. Available for 
Apple, PC, Mac, ST, many 
others. 


$39.50 


VISA/MC 


(602) 428-4073 
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Another Quick Two-Digit Decimal Printer...Bob Sander-Cederlof 


I have written a number of articles in the past about 
converting values from binary to decimal and printing or 
displaying them. Usually such routines need to handle large 
numbers, but sometimes they are limited to single-byte values. 
And once in a while, you know in advance the value will be 
between 0 and 99 decimal. 


For example, when you are printing the date you know in advance 
that the day, month, and year numbers are only two digits each. 
The following program is actually used in one such date 
printer, to print the day number and year number. For 
simplicity, it always prints two digits, even if the first 
digit is a zero. This is the way I want it to be when printing 
the year, but the day would probably look better without a 
leading zero. 


Lines 1000-1140 in the listing which follows are a test routine 
which call on my PD subroutine to print every possible value 
from 00 to 99. Lines 1150 to the end are the PD subroutine. 
Lines 1240-1290 are not actually assembled, because the 
variable “blank.fill" is zero. If you change line 1010 to make 
“blank.fill"“ equal to l, lines 1240-1290 will be assembled. 
Then values less than 10 will print with a leading blank rather 
than a leading zero. 


1000 *SAVE Q2D.DECIMAL 


00- 1010 blank.fill .eq 0 
1020 Beem mw www mn nnn nn en men ewww eee eeene 
FDED- Le COUT -EQ $FDED 
gaa gg on tase TE He Per Fe 0 be ss 
0803- 20 14 08 ie JSR PD Print two digits decimal 
O806- AQ AO 1080 LDA #" " Print two spaces 
0808- 20 ED FD 1090 JSR COUT 
OBES CB 3410 NY Next ¥ 
- ex 
Obi. 90 BF 1130 Bee ft 
0813- 60 1140 ‘ RTS Finished! 
0814— A2 AF 1420 PD LDX #*0"~-1 Start with ASCII zero-1 
0816- 38 a SEC Set up subtraction 
0817- E8 1180 .1 INX Increment ten's digit 
0818—- EQ OA 1190 SBC #10 Take out ten 
081A- BO FB 1200 BCS .1 Still more tens 
081C- 69 BA 1210 ADC #"0"+10 Add back one ten, and make ASCII 
O81E- 4 1220 PHA Save unit's digit 
O8iF- 8A rh TXA Get ten's digit 
1240 -do blank. fill 
re cmp #"°Q* If these are assembled, pone 
1260 bne .2 00-09 as * O* through . 
vere lda #" * 
1280 .2 
1290 fin 
0820=- 20 ED FD 1300 JSR COUT Print ten's digit 
0823- 68 1396 PLA Get unit's digit 
O824—- 4C ED FD 1355 : JMP COUT and print it 
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New Versions of S-C Word Processor.......e.-Bob Sander-Cederlof 


A long time ago I wished there were some sort of word processor 
for the Apple II. Paul Lutus wrote AppleWriter, and I bought a 
copy. It was limited to a 40-column display, and only showed 
upper-case on the screen, due to limitations in the old Apple 
II and II Plus machines. It cost $50, and that seemed like a 
pretty good price. 


After a while I found out about the Paymar Lower-Case Adapter, 
and added lower-case display to the screen. Some patches 
inside AppleWriter made it work with the adapter. Then the 
shift-key mod was invented, and I installed that also. I 
started hoping for even more.... 


So, I wrote my own word processor, based on AppleWriter's 
features, and using some of the internal techniques Paul Lutus 
developed which made AppleWriter faster than any other word 
processors available. I simplified the editing commands, 
speeded up and enhanced a lot of the features, and 
significantly shortened the code. I gave it the ability to use 
standard text files, with blazingly fast disk load and save. 

It gradually grew into a product, which we sold with all the 
source code for $50. More than a pretty good price. 


However, the S-C Word Processor was still limited to a 
40-column display. Bob Deen, a high school student at the 
time, was doing some programming work for us. He did a lot of 
work on our Cross Assemblers, for example. He was also using 
the S-C Word Processor a lot, so I asked him to make an 
80-column version for the Apple //e. He succeeded, and also 
added “widow” and “orphan" protection. (See the article in 
AAL, July, 1984.) By the way, Bob Deen is now a computer 
scientist at Jet Propulsion Laboratories in Pasadena, 
California, doing image enhancement software. 


Meanwhile, Apple made a widow out of DOS 3.3 by bringing out 
the ProDOS system. The S-C Word Processor was still tied to 
DOS, partly because of my fancy disk I/O and the catalog-menu 
system. Then last December Bob Gardner sent us a ProDOS 
version! (Bob, who lives in Washington state, has been a loyal 
customer and friend since at least 1983.) He did a terrific 
job, making the ProDOS version even better than the DOS one. 
The only drawback was that it only worked in 40-columns. Well, 
in March he sent an 80-column version. 


Now, still for only $50, you get both DOS and ProDOS versions 
which work in both 40- and 80-columns. To use the 80-column 
versions you have to have an Apple //e, //c, or IIgs. The 
40-column versions will work on those or older Apples, but the 
Older Apples do need lower-case display and shift-key mods. 


I wouldn't want you to think the S-C Word Processor has all the 
features of the Word Perfect, or other such major products. 

No, it is not that sophisticated. But it does have all the 
basic features we need for everyday work, it is very fast, and 
you get all the source code so you can personalize it. 
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Some of you have done some extensive personalizing already. 
Horst Schneider, a retired businessman in Denver, modified it 
to become a part of his business management package, adding 
mail merge and other features along the way. Larry Skutchan, 
who works at American Printing House for the Blind, made a 
talking version which works with Street Electronics' “Echo” 
speech synthesizers. If you are interested in either of these, 
I could put you in touch with Horst or Larry. 


A curious bit of history: all three of the programmers who 
have made the major contributions to SCWP are named Bob! I 
guess we could give it the nickname of the Three-Bob Word 
Processor! No, it is inexpensive, but we do charge more than 
three shillings. 


If you already have an earlier version of the S-C Word 
Processor and would like to get an update to the latest, send 
$7.50 (or only $5 if you only want the ProDOS disk). 


Do You Have 
Apple Knowledge? 


If you do, Applied Engineering would 
like to put your knowledge to work. 
We're looking for someone to fill a 
position in our Technical Support group. 
You must have a strong working knowledge 
of AppleWorks, ProDOS, DOS 3.3, and AppleSoft BASIC. 
Applied Engineering offers good benefits and a pleasant work 
environment. Office is non-smoking. We're located in the 
Carrollton area. 

So if you've got the knowledge and want to sink your teeth into a 

position with an ever-expanding company, give us a call at 
(214) 241-6060. 
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Printing the ProDOS Date and Time.........Bob Sander-Cederlof 


ProDOS-8 stores the date and time information from in four 
bytes in the Global Page starting at SBF9O: 


SBF90: 
SBF91: 
SBF92: 
SBF93: 


MMMDDDDD 
YYYYYYYM 
0Ommmmmm 
0OOhhhhhh 


Low-order bits of Month, Day (1-31) 
Year (0-99), high bit of Month 
Minute (0-59) 

Hour (0-23) 


The following subroutine, lines 1000-1590, will print out the 


date in the form DD-MMM-YY. 


Lines 1600-1800 are an alternative 


method for printing out the 3-letter month name abbreviation. 
Lines 1810-1910 print the time in the form hh:mn. 


O80A- 2 


> pe OU OeO 


KA 


Apple Assembly Line... 


ve) Some 
= OOwhIo 


og 


1020 Sewn n nnn mewn mmm nn enn nee wwe e enn 

eta # Subroutine to print date from ProDOS Global Page 
1040 # in form DD-MMM-YY. 

1050 *® Two different methods for printing the 3-letter month 
1060 # name are shown, with month-name table in normal and 
io : transposed order. 

1090 DATE .EQ $BF90,BF91 Date in form: MMMDDDDD, YYYYYYY 
1100 Time in form: OOmmmmmnm, OO0O0Obhhhh 
ne COUT ~EQ $FDED 

ae PRINT .DATE 

1140 LDA DATE Get MMMDDDDD 

nee AND + ud Isolate Day of Month 

1160 JSR P Print the day number 

ae LDA #*- Print a dash 

1180 JSR COUT 

1190 #----PRINT MONTH FROM TABLE------ 

1200 LDA DATE+1 Get YYYYYYYM 

1210 LSR High bit of Month-number into Carry 
1220 PHA Save OYYYYYYY on staok 

1230 LDA DATE Get MMMDDDDD 

1240 ROR MMMMD DDD 

1ePn LSR OMMMMD DD 

1260 LSR OOMMMMD D 

ihe LSR 0004MMMMD 

ea LSR OOOQ4MMM Month number (1-12) 
1300 LDA MONTH.TBL.1-1,X ist letter 

1338 JSR COUT 

1320 LDA MONTH.TBL.2-1,X 2nd letter 

1330 JSR CO 

1340 LDA MONTH.TBL.3-1,X 3rd letter 

1320 JSR COUT 

1360 LDA #*- Print dash 

Tato JSR COUT 

1380 @--=-=-PRINT YEARo----<----22------- 

1390 PLA GET OYYYYYYY FROM STACK 

1400 #---Fall into PD subroutine------ 

1410 PD LDX #*0"~1 Start with ASCII zero-~1 

1420 SEC Set up subtraction 

ies 1 INX Increment ten's digit 

1440 SBC #10 Take out ten 

rae BCS .1 Still more tens 

1460 ADC #"0"+10 Add back one ten, and make ASCII 
iyo PHA Save unit's digit 

1480 TXA Get ten's digi 

Lt JSR COUT Print ten's digit 

1500 PLA Get unit's digit 

1510 JMP COUT and print it 

1830 “is. 

1380 aS =/11/ 

i bG: Weeks ae etter ceaeie 

vey MONTH.TBL.1 >AS "JFMAMJJASOND" 

1580 MONTH.TBL.2 >AS "AEAPAUUUECOE" 

1590 MONTH.TBL.3 >AS "NBRRYNLGPTVC® 
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1600 #-~---~-------~-------- ~~ ee 
1610 ALTERNATIVE.MONTH. PRINTER 
O86A=- AD 91 BF 1620 LDA DATE+1 GET YYYYYYYM 
O86D— 4A 1930 LSR M INTO CARRY 
O86E- AD 90 BF 1640 LDA DATE GET MMMDDDDD 
0871—- 6A 1928 ROR MMMMD DDD 
0872= 4A 1660 LSR OMMMMD DD 
Ore KA Nore LSR OOMMMMD D 
O874— HA 1680 LSR 00QMMMMD 
087 - HA ioe LSR 0000QMMMM 
0876- 8D 8B 08 1700 STA TEMP Multiply month number by 3 
O82. A 1710 ASL 
0 - 6D 8B 08 1720 ADC TEMP 
O87E- AO 0 1740 LDY #3 Print 3 consectutive letters 
0880- BD 89 08 1320 al LDA MONTH. TABLE-3 ,X 
0 - 20 1760 JSR COUT 
0886- E8 1770 INX Next letter 
i Ge 88 1780 DEY 
0888- DO F6 1730 BNE .1 
O88A- 60 1800 RTS Finished 
1810 Semen nnn nm mn en mnn nwo nn eon nn www 
088B- 1820 TEMP -BS 1 
088C- 1930 MONTH. TABLE >AS "JANFEBMARAP RMAYJUNJULAUGSEPOCTNOVDEC* 
{ONO  @acuuececocecanadoeseesceceeesuces 
1850 PRINT. TIME 
O8BO- AD 93 BF 1860 LDA DATE+3 Get OOhhhhhh 
O8B3= 20 33 08 1870 JSR PD -' es : - 
O8B6- AQ BA 1880 LDA #*;" 
O8B8- 20 ED 1890 JSR COUT 
O8BB- AD 92 BF 1900 LDA DATE+2 Get OOmmmmmm 
O8BE- 4C 33 08 1910 JMP PD 


The value stored in the Global Page may not be current. It is 
automatically updated every time you close or flush a file, or 
you can force it to be updated by using the MLI call shown in 
lines 1920-end. If you have looked into the Global Page 
description in the manuals, you may have noticed that SBF06 is 
a vector to the date/time update code. Don't try to use it 
directly unless you are sure the Language Card is properly 
Switched before and after the call. The best way is to use the 
MLI call, as I did. 


D0 Wasen ee ee eet eceuceuosesus 
1930 UPDATE.DATE. AND. TIME 
08C1- 20 00 BF 1940 JSR $BFO0 MLI ENTRY POINT 
og 2.00 00 1820 -DA #$82,0000 GET DATE/TIME, NO PARMS 
0 - 60 1370 . RTS 
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